home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0574.ZIP
/
GETS.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-11-21
|
1KB
|
58 lines
include compiler.inc
ttl GETS, 1.05, 10-07-86 jk
dseg
cseg
; public buf128
buf128 db 128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
procdef gets, <<bfr, ptr>>
pushreg
mov dx,offset buf128
push ds
mov ax,cs
mov ds,ax
mov ax,0a00h
int 21h
ldptr di,bfr
mov ax,cs
mov ds,ax
lea si,buf128
inc si
mov cl,[si]
xor ch,ch
inc si
or cl,cl
jz none
rep movsb
none: xor al,al
stosb
pop ds
mov ax,0200h
mov dl,0ah
int 21h
clc
retptrm bfr
pend gets
finish